home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / gui / GenCodeE_14.lha / GenCodeE / V1.4 / E / click_locale / Click.e < prev    next >
Encoding:
Text File  |  1994-04-23  |  1.4 KB  |  54 lines
  1. OPT OSVERSION=37
  2.  
  3.     /* EPP modules */
  4. PMODULE 'Click_defs', 'Click_procs'
  5. PMODULE 'Click_cat'
  6.  
  7.     /* Error handling */
  8. ENUM NO_LIBRARY, MUI_APPLICATION_FAILURE
  9. RAISE   NO_LIBRARY              IF OpenLibrary()=NIL,
  10.         MUI_APPLICATION_FAILURE IF Mui_NewObjectA()=NIL
  11.  
  12.     /* Global variables */
  13. DEF click : PTR TO obj_app
  14.  
  15.     /* Main procedure */
  16. PROC main() HANDLE
  17.  
  18.     DEF signal, result_DoMethod, running = TRUE
  19.  
  20.     muimasterbase := OpenLibrary('muimaster.library', 0)
  21.     localebase := OpenLibrary('locale.library', 0)
  22.     open_Click_catalog(NIL,NIL)
  23.     click := create_app()
  24.  
  25.     /* Notify : close gadget => end of application */
  26.     doMethod( click.wi_try, [ MUIM_Notify, MUIA_Window_CloseRequest, MUI_TRUE, click.app,
  27.                             2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit ] )
  28.  
  29.     /* Open the window */
  30.     set( click.wi_try, MUIA_Window_Open , MUI_TRUE )
  31.  
  32.     WHILE running
  33.         result_DoMethod := doMethod( click.app, [ MUIM_Application_Input, {signal} ] )
  34.         SELECT result_DoMethod
  35.             CASE MUIV_Application_ReturnID_Quit
  36.                 running := FALSE
  37.         ENDSELECT
  38.         IF (running AND signal) THEN Wait( signal )
  39.     ENDWHILE
  40.  
  41.     dispose_app( click )
  42.     close_Click_catalog()
  43.     CloseLibrary( muimasterbase )
  44.  
  45. EXCEPT
  46.     SELECT exception
  47.         CASE NO_LIBRARY
  48.         CASE MUI_APPLICATION_FAILURE
  49.     ENDSELECT
  50.  
  51.     IF muimasterbase THEN CloseLibrary(muimasterbase)
  52.     close_Click_catalog()
  53. ENDPROC
  54.